home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 43
/
Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso
/
-serious-
/
graphics
/
fxforge
/
pathways to helion
< prev
next >
Wrap
Text File
|
1999-06-15
|
2KB
|
26 lines
Category: Filter Factory Gallery N
Title: Pathways to Helion...
Author: Sandy Blair
Copyright: Copyright © Sandy Blair
ctl[0]: Pathway
ctl[1]: Helion
ctl[2]:
ctl[3]:
ctl[4]:
ctl[5]: Power
ctl[6]:X Slide
ctl[7]: Y Slide
val[0]: 29
val[1]: 55
val[2]: 0
val[3]: 0
val[4]: 0
val[5]: 103
val[6]: 190
val[7]: 207
R:put(scl((val(6,X,0)+x)%X,0,X,-512,512),0),put(scl((val(7,Y,0)+y)%Y,0,Y,-512,512),1),put(cos(sin(((((ctl(1))%2)*get(ctl(0))%2)-sin(((ctl(1)>>1)%2)*get((ctl(0)>>1)%2)))-cos(((ctl(1)>>2)%2)*get((ctl(0)>>2)%2)))),2),put(sin(sin((((ctl(1)>>3)%3)*get((ctl(0)>>3)%2))-cos(((ctl(1)>>4)%4)*get((ctl(0)>>4)%2))-sin(((ctl(1)>>5)%5)*get((ctl(0)>>5)%2)))),3),src(mix(x,scl(get(2),-512,512,0,X-1),ctl(5),255),mix(y,scl(get(3),-512,512,0,Y-1),ctl(5),255),z)
G:put(scl((val(6,X,0)+x)%X,0,X,-512,512),0),put(scl((val(7,Y,0)+y)%Y,0,Y,-512,512),1),put(cos(sin(((((ctl(1))%2)*get(ctl(0))%2)-sin(((ctl(1)>>1)%2)*get((ctl(0)>>1)%2)))-cos(((ctl(1)>>2)%2)*get((ctl(0)>>2)%2)))),2),put(sin(sin((((ctl(1)>>3)%3)*get((ctl(0)>>3)%2))-cos(((ctl(1)>>4)%4)*get((ctl(0)>>4)%2))-sin(((ctl(1)>>5)%5)*get((ctl(0)>>5)%2)))),3),src(mix(x,scl(get(2),-512,512,0,X-1),ctl(5),255),mix(y,scl(get(3),-512,512,0,Y-1),ctl(5),255),z)
B:put(scl((val(6,X,0)+x)%X,0,X,-512,512),0),put(scl((val(7,Y,0)+y)%Y,0,Y,-512,512),1),put(cos(sin(((((ctl(1))%2)*get(ctl(0))%2)-sin(((ctl(1)>>1)%2)*get((ctl(0)>>1)%2)))-cos(((ctl(1)>>2)%2)*get((ctl(0)>>2)%2)))),2),put(sin(sin((((ctl(1)>>3)%3)*get((ctl(0)>>3)%2))-cos(((ctl(1)>>4)%4)*get((ctl(0)>>4)%2))-sin(((ctl(1)>>5)%5)*get((ctl(0)>>5)%2)))),3),src(mix(x,scl(get(2),-512,512,0,X-1),ctl(5),255),mix(y,scl(get(3),-512,512,0,Y-1),ctl(5),255),z)
A:a